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FACILITY: SATS SYSTEM SERVICE TESTS 


; ABSTRACT: The SATSSS43 module tests the execution of the following 
VMS system services: 


SOCLCMH 
SOCLEXH 
SCANE XH 


Needs CMKRNL orivi lege and dynamically acquires other 
privileges, as need 


; AUTHOR: THOMAS L. CAFARELL CREATION DATE: MMM, 1978 
PAUL D. FAY CDT EPSERY & TESTSERV MACROS) 


; MODIFIED BY: 


v03-001 Ld10001 ry D. Jones 17-Sep-1980 
Modified to PE Oo new build command ane odenen. 
ae 


: ENVIRONMENT: User, Supervisor and Executive mode image. 
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~SBTTL DECLARATIONS 
; MACRO LIBRARY CALLS 


SATSSS43 = SAT 
v042000 DECLA 


S 
R 
00000000 
00000001 
BRR RR ORE 
0000000 8 
00000004 
0 
0 


STE Pp SAT 
Ons ef) 


> 


; PCB definitions 


SPHDDEF ; process header definition 
SPROEF : erecereer register definitions 
SPRVDEF 5 PSL lege dg initions 
SPSLDEF ; ~¥ ge} nitions 
SSFDEF k Frame definitions 
$SSHR_MESSAGES UETP,116,<<TEXT, INFO>> ; UETPS_TEXT definition 
SSSDEF ; ysten ervice definitions 
SSTSDEF ; STS definitions 
SUE TPDEF ; UETP message definitions 
; Equated symbols 
WARNING = 0 ; warning severity value for msgs 
SUCCESS = 1 r svecess 
ERROR Z ; 3 ial fe oe ia 
NFO = : latcrant ten oe bie sit Doe 
SEVERE = 4 ; fatal “gg = sca ae 


-SBTTL MACROS 
-MACRO EHDB MODE ,NUM 
MEB 


LIST 
MODE *NUM: 
-LONG 0 
»ADDRESS MODE *H'NUM 
“ADDRESS STATUS 
LONG NUM 
»«NLIST néb 
-ENDM EHDB 


SOOSOSCCSCSOOOOOCOCSCSOOCOOOCOOOOOOOOOCOOSOOOOOOOoOOoOOoO -mM 
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DONA WNE WN $$ 9 ODNOUNEWIN OOD NOUN EW CO OODNOUNE 
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VvO04 MACROS ~SEP-1986 04:51:29 (CUETPSY.SRCJSATSSS435.MAR;1 (1) 
0000 $4 } «PSECT RODATA,RD,NOWRT,NOEXE,LONG 
; TEST_MOD_NAME : 
33 34 53 53 53 54 41 53 oP" 4 sASCIC § /SATSSS43/ ; needed for SATSMS message 
95 TEST_MOD_NAME_D: 
53 53 53 54 41 53 GOO0SSTT" STOR 9089" 96 “ASCIB = /SATSSS43/ ; module name 
19 97 TEST_MOD_BEGIN: 
6E 75 67 65 62 9" 13 98 sASCIC = /begun/ 
1F 44 TEST_MOD_SUCC: 
6C 75 66 73 73 65 63 63 75 73 80° 100 “ASCIC /successful/ 
02A 101 TEST_MOD_FAIL: 
64 65 6C 69 61 66 89° 5 102 eASCIC /failed/ 
031 103 DCLCMH: 
48 4D 43 4C 43 44 9" 3 ! 104 eASCIC /DCLCMH/ 
oe 105 DCLEXH: 
48 58 45 4C 43 44 +g 63 106 eASCIC /DCLEXH/ 
003 107 CANEXH: 
48 58 45 4E 41 43 9" Bose 108 eASCIC /CANEXH/ 
Bote 109 CS1: 
21 20 74 73 65 54 O9000066 "9105 9009" 046 8 110 -ASCID \Test !AC service name !AC step !UL failed.\ 
6E 20 65 63 69 $ 72 65 7 eo 43 41 0054 
70 65 74 73 20 43 41 $i 20 g gp $} 060 
2E 64 65 6C 69 61 66 20 4C 55 21 20 sts 111 cS2: 
74 63 65 70 78 45 $9009080"91 060000" $e 112 : -ASCID \Expected !AS = !XL received !AS = !XL\ 
4c 58 $i 20 3D $0 53 41 21 ee $4 5 B88 
41 21 20 64 65 76 9 65 63 $ 3 ° 09 
4C 58 21 20 3D 2 +43 118 cs: 
74 63 65 70 78 45 0 099088" 91069009" BAR 114 : -ASCID \Expected !AS'UB = !XL received 'AS'UB = !XL\ 
20 30 60 $6 55 21 53 41 21 20 $e 08 
64 65 76 ¢ 65 63 65 72 9 4C 58 21 OOBF 
58 21 20 3D 20 42 55 21 41 21 £e Bce 
be 115 CS4: 
65 70 78 $3 3 55 909806 0°0106 900 * 00D 116 -ASCID \Unexpected !AS mode exit handler found in !AS.\ 
64 6F 6D 20 41 21 Ps 65 746 ES 
6C 64 6€ 3} 68 20 74 69 78 65 3 6 oF 
20 6E 69 20 64 6E 75 6F $6 g { 33 ore 
77 20 65 64 6F 4D 00000116'010E000 19 Ha "Oe saree ‘Annde ues til’ 
. . ‘ ode w 'AS. 
2E 98 41 21 9 58 4 135 is ue 
72 65 73 75 0000012B'010E0000' : ; : $ il -ASCID \user\ 
72 65 70 75 73 00000137'010E0000' f 5 a .ASCID \super\ 
74 75 63 65 78 65 00000144'010E0000' 013¢ 124 | -ASCID \executive\ 
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v04 


65 76 69 
73 75 74 61 74 73 00000155'010E0000' 


14A 
o1éD 13 
14D 126 
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-ASCID \status\ 
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bs 4 
UETPSY sat SSS43.MAR;1 (1) 


-SBTTL R/W PSECT 
0000 -PSECT RWDATA,RD,WRT,NOEXE,LONG 
PID: 
00000000 -LONG 0 ; PID for this process 
CURRENT_TC: 
00000000 0 ; ptr to current test case 


“ALIGN LONG 
REG_SAVE_AREA: 


oe 
MOD_MSG_ CODE : 
. LONG UETPS_SATSMS 
TMN_ADDR: 


-ADDRESS TEST_MOD_NAME 
TMD _ADDR: 

»ADDRESS TEST_MOD_BEGIN 
PRVPRT: 


PRIVMASK: 

CHM_CONT: 
.LO 

RETADR: 


BL 
STATUS: 
~ LONG 


00000044 
00748009 
00000000" 
00000019" 


register save area 
0 
0 
0 
0 
00 0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


; 
| 
eee 


test module message code for putmsg 


protection return byte for SETPRT 


00000000 00000000 
00000000 
00000065 
00000000 
00000000 


priv. mask 


; change mode continue address 
returned address's from SETPRT 


a 
own o S& ©& 


DCL: 
oi SOCLCMH DUMMY ,OHC,0 DCLCMH parameter List 
SOCLEXH EXEC3 DCLEXH parameter List 


VIVMI F999 OOM 9 OO “COMO ODLS SOOO S f£OOCOCOUW 


DONAULS WR "OOONAOW SW "OODNA UNE WN OO OONOAU EW OOONO US Wn" 0O0 
o . 


ee ee ee ee ee a a a ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
09090909 SINS SN PP AAD POD TU BB BB BBB EE AAAI WIA 
wnO 


AN 
REG SCANEXH EXEC1 ; CANEXH parameter List 
74 73 69 67 65 72 00000035 "91059009" -ASCID \register R\ 
52 20 72 6 98 
oF REGNUM 
00000000 009F -LONG 0 ; register number 
BRA MSGL 
44 9644 OA -LONG 80 ; buffer desc. 
000000AB' OOA -ADDRESS BUF 
a4 BUF : 
000000FB AB -BLKB 80 
OFB MESSAGEL: 
si 444 OFB ° 0 ; message desc. | 
OOOO0AB’ OOFF “KODRESS BUF 
9 SERV _NAME : 
00000000 : Semel «LONG 0 3; service name pointer | 
00000000 : 7 seen ONG 0 ; previous handler address 1 
00000000 ' : renee’ -LONG 0 ; previous handler address 2 
00000000 + out -LONG 0 i previous handler address 3 
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y042000 PSECT iets 90:34:33 OE They RET SAY SSSoSMAR: 1 . (1). 
00000000 011 184 -LONG 0 : old handler check location 
11 185 ARGLST 
£08000) 11 1 § «LONG 1 ; super mode setup arg List 
€6' 0118 1 -ADDRESS SUPER_MODE 
3. Ge 8 MSGVEC ; PUTMSG message vector 
Ags 1 1 -LONG 3 
1 190 «LONG ETPS_TEXT 
aca 1 191 mE 
FB’ 0128 135 ADDRESS MESSAGEL 
12F 193 MSGVEC1: 
00000004 Q12F 194 «LONG 4 ; PUTMSG message vector for exit 
0000000¢ 1 ; 195 LONG 
1 138 ~ LONG 
03900006 138 «(19 »BLKL 
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SATSSS43 Macro V04-0 
9042000 -SEP-1984 Be eey SRS SAY SSeS _MAR: 1 


nm 


m 
ow 


14 199 ; exit handler desc. plocks 
14 200 EHDB USER, ; user #1 will be deleted 
14 USER1: 
00 9 , O14 -LONG 0 
8 14 ADDRESS USERH1 
148 LON 
; 8 * O14F ADDRESS STATUS 
0 1 1 ; LONG 1 
1 201 EHDB USER,2 3; user #2 will be used 
157 USER2: 
8000895" 138 “ADDRESS. USERH2 
$000002. 018 
0000 : * 0163 ADDRESS STATUS 
0000002 0167 . 2 : 
168 202 EHDB USER,3 ; user #3 will be deleted 
168 USER3: 
90000000 168 -LONG 0 
BR 8b bp “ 1¢f ADDRESS USERH3 
SORE 173 . LON 
00000065" 0177 ADDRESS STATUS 
00000003 0176 -LONG 3 
017F 3 EHDB USER,4 ; user #4 will be used 
017F USER4: 
00000000 017F -LONG 0 
0000034C* 0183 ADDRESS USERH4 
0000000 HL i 
00000065" 0188 ADDRESS STATUS 
00000004 018F .LONG 4 
019 4 EHDB SUPER,1 ; super #1 will be deleted 
019 SUPER1: 
00000000 019 -LONG 0 
00000740" 0197 .ADDRESS SUPERH1 
0000000 198 .LON 
00000065" 019F -ADDRESS STATUS 
00000001 01A3 .LON 1 
Q1A7 =. 205 EHDB SUPER,3 ; super #3 will be deleted 
01A7 SUPERS: 
00000000 01A7 -LONG G 
00000740" O01AB ADDRESS SUPERHS 
4 44k 1AF L 
4444 . 183 -ADDRESS STATUS 
00000003 618 " 3 
1BB 206 EXDB EXEC,1 3: exec #1 will be deleted 
1BB EXEC1: 
0000000 0188 -LONG 0 
Be 08, 18 -ADDRESS EXECH1 
448443 its -ADDRESS STATUS 
1 O1¢B “LONG. 1 
1CF 207 EHDB EXEC,3 ; exec #3 will be deleted 
1CF EXECS: 
00 OICF -LONG 0 
4B' 103 ADDRESS EXECH3 
* 01DB »ADDRESS STATUS 
00 1DF -LONG 3 
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«PSECT SATSSS43,RD,WRT,EXE,LONG 
~SBTTL SATSSS4 


a 
FUNCTIONAL DESCRIPTION: 
After performing some initial verte pe ee such as 
thi fen the module begin message and acquiring needed privileges, 
the ave em services are costed n each of their normal conditions. 
; Detected failures are identified and an error message is printed 
; on the terminal. Upon completion of the test a success or fail 
; message is printed on the terminal. 
; CALLING SEQUENCE: 
$ RUN SATSSS43. ... (DCL COMMAND) 
; INPUT PARAMETERS: 
none 
; IMPLICIT INPUTS: 
none 
OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 


Messages to SYSSOUTPUT are the only output from SATSSS43. 
They are of the form: 


XZUETP=S-SATSMS, TES 

ZUETP=S-SATSMS, TES 

ZRUETP-E-SATSMS, TES 

RUETP-I-TEXT, ... ( 
COMPLETION CODES: 


The SATSSS43 routine terminates with a SEXIT to the 
operating system with a status code defined by UETPS_SATSMS. 


SIDE EFFECTS: 


none 
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T MODULE SATSSS43 BEGUN ... (BEGIN MSG) 
T MODULE SATSSS43 SUCCESSFUL ... (END MSG) 
: MODULE SATSSS435 FAILED ... (END MSG) 


Morr 
DADA AI Be BS BB BE EE AANA AAAI POPOPIPIPPNNINY 2 Oe 
SOODWNA NEW @§ OOO NAUNE WIN OOD NAU EWN 0 OONAULS WIN O OONG- wr 


TEST_START SATSSS43 ; let the test begin 


—_——$$$— $$ 


it 
& 
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vO4 SAT eseas ae ae $0: 3ti58 Ue TPSY. CRETSAY SESS MAR: 1 . (1) | 
0000 .ENTRY SATSSS43,0 
0004 'CF D4 CLRL W*CURRENT_TC 
0D PUSHL #0 
0000' CF OF PUSHAL W*TPID 
4444's Bt 3 FB of CALLS 36-631 SSUAKE 
000000 “Gt FB 001 CALLS #0,G*SYSSHIBER 
OO9'CF 7F OO1A PUSHAQ W*fEST OD NAME. 
00000000 ' GF 1 Fe O36 CALL #1,G*SYSSSETPRN 
3 BSBW = W*MOD_MSG_PRINT 
004C CF tl F 43 028 MOVAL Ww*TEST_MOD lay ADDR 
0044°CF 63 00 O61 F 0 F INSV #SUCCESS ,#0, 0 ,W*MOD_FSG_CODE 
DD g PUSHL # 
0549'CF 01 FB 00 CALLS #1,W*REG_SAVE 
03D STPO: 
030 61 -SBTTL OCLCMH TESTS 
030 6¢ 3+ 
03D 65 ; 
0030 64 ; SDCLCMH tests 
att 65 ; test super mode handler declaration 
bo8D 569 
0103'°CF 0031'CF DE 003D 68 MOVAL W*DCLCMH,W*SERV_NAME ; set service name 
0044 269 SCMKRNL_S W°SETUP SUPER;W*ARGLST ; test super mode declaration 
0663'CF 00 FB 0053 270 CALLS ~#0,W*ERLBOF_DUMP ; report any errors 
1 BE 0058 71 #1 ; declare dummy handler 
O113"CF  QOO003E6'S8F 01 bone ie CMPL #SUPER_MODE ,W*OHC ; make sure it happened 
11 13 0063 7 BEQL 10$ 3; br if yes 
0113'°CF DD 0065 74 PUSHL W*OHC ; else setup to report the error 
O3SE6'CF ODF 8298 75 PUSHAL W*SUPER_MODE 3 save the expected results 
O14D"CF DF 006D 6 PUSHAL W*EXP 3 push the message address 
0691'CF O03 FB B55 4 108 CALLS #3,W*PRINT_FAIL : report the failure 
2 BE 0076 8 CHMS #2 3; remove the dummy handler 
Bee 80 ;+ 
007 81; 
44 Ht 3; test user mode handler declaration 
007 84 :- 
One 85 NEXT_TEST 
803 STP1: 
0004 'CF 01 DO 007 MOVL #1 ,W*CURRENT_TC 
90 DD 007D PUSHL | 
0549'CF 1 FB 7F CALLS  #1,W*REG_SAVE 
0069' CF 0125: CF DE 4 86 MOVAL W*UM,W*MODE : set the mode | 
0071'CF 49A'CF DE 00 7 MOVAL WDUMMY,W*DCL+DCLCMH$ ADDRES ; reset the handler address 
OO75*CF O10B'CF DE 009 88 MOVAL W*PRVHNO2,W“DCL*DCLCMAS_PRVHND ; set new handler save address 
09 89 SDOCLCMH_G W*DCL 3; check _G form 
Ag 90 FAIL_CHECK SS$_NORMAL ; check for success 
ot DD A PUSHL #Sss RMA 
0553'°CF 1 FB A4 CALLS #1,W"REG CHECK 
Oa9 391 SDCLCMH_S W°USER MODE ,W*OHC : set real handler 
BA 92 FAIL_CHECK SS$_NORMAL ; check for success 
1 0D BA PUSHL ass NORMAL 
OS53'cF 801 OF C CALLS #1,W"REG_CHECK | 
0113°CF QO00049A'B8F 0D C1 293 CMPL #DUMMY , W*OHC ; is handler address correct? | 
| 
j 
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9042080 DCLCMH TESTS gro Oke 0:34 38 UETPSY.S REIS SATSSS43.MAR;1 ° 
11. «#13 CA 94 BEQL 10$ ; br if y 
113'CF DD cf 95 PUSHL W*OHC : push received address 
4SA'CFE OF D 89 PUSHAL W*DUMMY 3; push expected address 
nel * OF D4 9 PUSHAL W* ; push string variable 
0691'CF 3. CFB D8 38 CALLS #3,W*PRINT_FAIL ; print the error 
+ + 108: 
DD a ; 
44 § ; test for compatiblity mode handler declaration 
ODD § Lo 
Oop 05 NEXT_TEST 
ODD STP2: 
6004'CF 8 dO ODD MOVL 46" oW*CURRENT_TC 
osa9'cr 01 PR GOES CALLS AVE 
OO75"CF O10F'CF DE QOE9 6 MOVAL Ga PRYHNDS. G*oct spcLcrws _PRVHND ; set new handler save location 
0079'CF 06 OOFO 30 INCL W*DCL+DCLCMHS_T : set to compatiblity mode type 
OOF4 08 SOCLCMH_G W sti’ un ; check _G form 
OOFD 09 FAIL =CHECK SS$_N 3 check Tor success 
01 DD OOFD PUSHL MISSS.N ORMAL 
0553'CF 01 FB OOFF CAL Us #i,w* REG Jag 
0104 310 SDCLCMH_§ WCOMP MODE, W°OHC,#1 =; set real handler 
0115 11 FAIL_CHECK SS$_ NORMA 3 check for success 
01 DD 0115 PUSHL aSSScN 
0553'CF at FB 0117 CA tls #1 URES C CHECK 
O113°CF  OQOO0049A'8F 01 brig \¢ CMPL SDUNMY ,W W*OHC ; is handler address correct? 
11 13 01 1 BEQL 10$ :; br if yes 
O113'CF DD 0127 14 PUSHL W*OHC i; push received address 
O49A'CF DF 0128 15 PUSHAL W*DUMMY 3 push expected address 
014D'CF DF Ol2F 16 PUSHAL W*EXP ; push string variable 
0691'CF O03 FB 0133 17 CALLS #3" W*PRINT_FAIL ; print the error 
Blah Hig 108 
0138 20 ; 
4 1; check the compatibility mode handler 
1 : 3° 
8 4 NEXT_TEST 
1 8 SYP3 
0004 ‘CF 03 00 1 MOVL #3,W°CURRENT_TC 
0549'CF 0 PB : P CALLS iw AVE 
8300000 F 0D 144 $2 PUSHL #<<PSLSM tho eperee USEROPSLSV_ PRVMOD>- 
14A 6 '<PSL$C_OSER@PSL$V_CURMOD 3 set compatibility mode 
GE*AF DF OQ14A 4 PUSHAL B*10$ : "eet new address 
0140 8 REI 3 enter tines | « PPE mode 
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04 
00 
01 
05 


.ALIGN WORD 
WORD “0979797 
“WORD *0 

"WORD “0000006 
.WORD *0000000 


: test the user mode handler 


NEXT_TEST 
MOVL  #4,W*CURRENT_TC 
PUSHL # 
CALLS #1,W*REG_SAVE 
cCHMU #5 


handlers to the original address 


NEXT_TEST 
MOVL #5,W*CURRENT_TC 
PUSHL 
CALLS ae ate REG SAVE 
MOVAL W*DCLCMH,W moe NAME 
SDCLCMH eS wePRVH 
FAIL_CHE cK SS$_N 
PUS wit NORM 
CA Us #1 ,W*REG_CHECK 
SDCLCMH_§ WePRVHNDS #1 
FAIL_CHECK §S$_N 


NORM 
“ PUSHL WSSS°N 
CALLS #1 UPREG. CHECK 


1986 04:31; 
, MOV 


; HALT 


}% piacyes Macro ¥06-09 
9 CUETPSY.SRCIJSATSSS435.MAR;1 


adjust addressing for PDP-11's 


Page 


#-1,TEST ;prove we were here 


;cause an exception 


compatibility mode flag location 
return to the good Life 


; use a param of 5 


; set service name 
3; reset CHMU handler 
; check for success 


; reset CM handler 
: check for success 


ooo 


: test super mode exit handler declaration 


~/ 
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1A 28 -SBTTL OCLEXH TESTS #1 | 
1A 59 ; 
1A 60 ; 
1A 6] ; SDCLEXH tests | 
1A 88 ; These tests are divided into two parts. This part is the declaration 
i: rt: ; tests. The second part is the servicing part. | 
13 08 ; test for exec mode exit handler declaration | 
1A 44 :* 
i 69 NEXT_TEST 
1A5 STP6: 
0004'CF 06 00 1A5 MOVL #6,W*CURRENT_TC 
+ OD nae PUSH 
0549'CF 1 FB 1AC CAL 1 nate W*REG_SAVE 
OO69'CF O13C'CF ODE 318) 70 MOVAL uER 3; set the mode 
O103'CF OO38'CF DE 0188 71 MOVAL UDCLEXH, »W*SERV_NAME 3 set service name 
01BF ie SCMEXEC $8 i get to exec mode 
aT aise 7 BRB 0$ ; skip over exec routine 
1CD 74 10$: 
0000 O1CD 75 .WORD 
00 dD OICF 76 PUSHL #0 ; push a dummy parameter 
0549°CF O01 FB 01D1 77 CALLS #1 -W*REG SAVE 3 Save a req snapshot 
0106 78 SOCLEXH_S ; declare #1 exec exit handler 
01E1 79 FAIL_C CHECKNP. Ss$ NORMA i aa 3 check for success 
01 DD O1E1 RSSS 
OSEA'CF 01 FB QO1E3 CALLS #1 sirnee¢ CHE CKNP 
01E8 $89 SDCLEXH_G W 1 ; declare #3 exec exit handler 
ait 81 FAIL. sag 11 SS$_N 3 check for success 
01 DD O1F1 Wes N 
OSEA'CF O01 FB O1F3 CALLS #1 NORM CHECKNP 
04 Bite 208 RET 3 go back to user mode 
0663'CF O00 FB wee CALLS #0,W*ERLBUF_DUMP ; dump any errors that occured 
O1FE 
O1FE 
O1FE 
O1FE 
OIFE NEXT_TEST 

1FE 

1FE STP?: 

0004'CF 07 ~2~+»00 1F MOVL #7,W*CURRENT_TC 
00 OD PUSH 
0549'CF 01 FB CALLS #1 ,W*REG_SAVE 
0069' CF O12F 'CF DE A 391 MOVAL W*SM,W*MODE 3; set the mode 
04 BE 0211 392 CHMS a ; declare 2 super mode exit handlers 


yf | 
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9042000 DCLEXH TESTS Ps §- P-19 382 80 3 38 v.28 REIS SAT Vee seS.mARs1 . (1) v4 
1 94 :¢ 
1 95 : 
! 38 : ; test user mode exit handler declaration 
1 338 :- 
! 9 NEXT_TES1 
1 STP8: 
0004'CF 08 00 1 MOVL #8,W*CURRENT_TC | 
By DD 1 PUS # 
0549'CF 1 FB 1A 
0069'CF 0123'CF DE 8 1F MOVAL ° 
6 SDCLEXH_S W*USER ; declare #1 user mode exit handler 
1 402 FAIL CHECK SS$_NORMAL > check for success 
01 1 site yee aNOR 
O553'°CF O01 FB 3 CAL ECK 
OO81'CF 0157'°CF E 0238 403 MOVAL uAUSER2 gt TepCceNaS. DESBLK ; set exit handler address 
O23F 404 thee w*DcLi ; declare #2 user mode exit handler 
0248 405 FAIL_C CHECK sss NORM 3 check for success 
01 DD 8 48 PUSHL #SS$-N NORM, 
0553'°CF 01 FB 4A CALLS #i,w™ REG_ CHECK 
024F 406 SDCLEXH_S W*USERS ; declare #3 user mode exit handler 
025A 407 FAIL_CHECK SS$_NORMAL ; check for success 
01 DD O25A Ane! #Ss 
O553'CF 01 FB O025C LLS #1,W*RE 
0081'CF O17F°CF DE 0261 408 MOVAL uAUSE Rs WOCLISDCLEXNS. DESBLK ; set exit handler address 
0268 409 SDCLEXH_G W : declare #4 user mode exit handler 
0271 410 FAIL_CHECK S$$-N NORMA ; check for success 
01 DD 0271 PUSHL PSSS-N NORM 
0553'CF 01 FB 0273 CALLS #1 »W*REG_ CHECK 


CALLS #1 ,W°REG_SAVE 
400 W*UM, w*MODE ; set the mode 
4 
| 
| 
} 


sis 


0004 'CF 
0549'CF 


OO69'CF 013C' 
O108'CF OOSF* 


0549'CF 


OSEA'CF 
0O89'CF OICF’ 


OSEA'CF 


0663'CF 


0004'CF 


0069' CF 
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~SBTTL CANEXH TESTS 


4 04:31: 


: SCANEXH tests 
; test for exec mode exit handler deletion 


NEXT_TEST 


MOVL #9 ,W*CURRENT._TC 


PUSHL 

CALLS  #1,W*REG_SAVE 
MOVAL W*EM,W*MOD 
MOVAL ¥ ares! SERN Ae 
+ ae B*10$ 
BRB 0$ 


set the mode 

set service name 

get to exec mode 

skip over the routine 


o" 
Oo 
wr 


entry mask 

push a dummy parameter 
save a reg snapshot 

cancel exec exit handler #1 
check for success 


PUSH #0 

CALLS #1,W*REG SAVE 

SCANEXH_ S W*EXECT 

FAIL_CHECKNP SS$_NORMAL 
PUSHL 


#SS$_NORMAL 
CALLS _ #1,W*®REG_ CHECKNP 
MOVAL W*EXEC3,W*CAN+CANEXHS_DESBLK ; set handler adr 
SCANEXH_G W*CAN 3 cancel exec exit handler #3 
FAIL_CHECKNP SS$_NORMAL ; check for success 
PUSHL $S$_NORMAL 
CALLS #1,W"REG_CHECKNP 
208 RET 3; return 
CALLS #0,W*ERLBUF _DUMP ; dump any errors that occured 
3% 
: test super mode exit handler cancellation 
NEXT_TEST 
STP10: 
MOVL #10,W*°CURRENT_TC 
PUSHL 
CALLS #1,W*REG_SAVE 
MOVAL W*SM,W*MODE ; set the mode 
CHMS #5 3 cancel super exit handlers #1 and #3 


6 
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y042000 CANEXH TESTS Breer Rs Boi STiSS PORTERS Bac ce Vee marsy Pe? 
ED 445 ;+ 
ED Pk ; 
ED 447 ; test user mode exit handler cancellation 
ED t¢8 3 
ED 449 ;- 
44 450 NEXT_TEST 
ED STP11 
0004'CF dO E MOVL #11,W*CURRENT_TC 
PB OSE CALS #1 ,W*REG. SAVE 
0069" 076 * Shaser DE F9 $3) MOVAL W*UM,W* pé = ; set the mode 
§ 4 § SCANEXH_S W*USER ; cancel user exit handler #1 
B 45 FAIL_CHECK 3S ieee ; check for success 
SI OD chit as ‘er 
0553°CF i. vo CAL ECK 
0089'CF 016B'CF DE 454 MOVAL WAUSERS, cl ekaceansane” -DESBLK ; set handler adr 
1 455 SCANEXH_G W*CAN ; cancel user exit handler #3 
§ 456 FAIL = CHECK sare NORM ; check for success 
OD oesse NORMAL 
. FB 4 CALLS #1 ,W*REG_CHECK 
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S= 
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Q0004'CF OC 

Be 

0549'CF 1 
O103'CF 0038'CF 
0065'CF 01 
52.04 
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0004°CF OD 
00 

0549'CF 4 
52 2 


OO65'CF 04 Bf 
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08 AC 02 
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pac rvice TESTS (SUCC t sf. ) <* ae 4 9: $f: }3 wart yes 


“SEP=1 
~SBTTL CCLEXH TESTS #2 


; SDCLEXH tests 


; This part tests the servic 


test user mode exit handler #4 


NEXT_TEST 
STP12: 
Posh #12,W*CURRENT_TC 
#1 were G_SAVE 

MOVAL UDC EN W*SERV NAME 
MOVL “#SS NORMAL , W®STATUS 
SEXIT_S W*MOD_ASG_C 

USERH4: 


.wORD 0 
MOVZBL $*#4 R2 
BRB HNDLR_C 


+ 


test user exit handler #2 


Cote Se te ee ee 


SERH2: 
~ WORD 0 
NEXT_TEST 
STP13 
MOVL #13,W*CURRENT_TC 
PUSHL 
CALLS. #1,W*REG_SAVE 
MOVZBL S*#2,R2 
HNDLR_COM: 
CMPL 1 ana »W*STATUS 
BEQL 
PUSHL 4 (AP) 
PUSHAL me 
PUSHAL 
CALLS Hs, WPRINT tt 
CALLS W* MODE _T 
10$: 
CMPL R2,8(AP) 
BEQL 
PUSHL (AP) 
PUSHL Eien 
PUSHAL 
CALLS a. “ecPRINT pple 
CALLS @ 
208: 


CMPB 5°92, 8(AP) 


| 
| 
| 
; set expected handler code 
| 
| 


Page 


~— 


ip 


hs 4 
UETPSY.S SSat $SS45.MAR; 1 


: this is the second of two ports of the DCLEXH tests. 
ng_of the exit handlers. 
; At this time there should be 2 user mode exit handlers declared. 


3; set service name 
; set the expected status return 
; kick off ALL exit handlers 


set expected handler code 


; is the status adr field OK? 
; br if yes 

; push received code 

; push expected code 

; push string ver teste 


print the erro 


: Raentify the handier mode 


; is the argument field OK? 
; br if yes 

; push received code 

; push expected code 

: push string ver table 


nt the erro 
dentify the exit handler mode 


; is this the last handler? 


| 8 7 
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eb 9 5 BEQL 30$ ; br if yes 
04 . § 308 RET ; do the next handler 
89 DD A 8 PUSHL ; push dummy parameter 
aad 1 FB A CALLS 1 Wraes, save ; save the registers 
0069" CF are DE O3A 10 MOVAL u. an w*MOD : set the mode 
3 BF AF 1 CHMS 3 reset the CHMS handler 
O133'CF O044'CF 0D Be) \¢ MOVL Sno -MSG_CODE eV Oseves! +4 ; set message code 
013B'°CF ne ae 8 B8 1 MOVL W°TMN-ADDR, w°MS 1412 ; set up parameters 
O13F ‘CF O4C'CF dD BF 14 MOVL Ww*TMD- ADDR *W*MSGVEC1+16 
cg 15 SPUTMSG 5 w*MSGVEC ; print the message 
1¢ 8 FO D 16 INSV #1, 4STSSV_INHIB_MSG,- 
a 1 DA 1 ; set inhibit printing on the exit status 
50 O44'CF 00 3 18 MOVL w*MOD_ASG_CODE,RO ; save the new code in RO 
, ; leave for goo 
04 E 1 RET L f d! 
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=< 
“no 


sseS.man:1 "2% (3, 


£6 6 » SBTTL SUPER _MODE 
E6 4 ; FUNCTIONAL DESCRIPTION: 
£° 5 3 Routine to handle the CHMS instructions. 
E6 5 ; A SEQUENCE: 
E6 8 ; 
E6 9; 
E6 0 ; INPUT PARAMETERS: 
E6 13 SP=> CHMS parameter 
E6 ¢ s PC 
£8 ? 3 PSL 
tt 3 3 The CHMS parameter can be one of the following: 
O3E6 : 3 1 = execute a SDCLCHM_G to declate a dummy handler 
O3E6 538; ¢ = execute a $DCLCMH_G to clear the dummy CHMS handler 
O3E6 44 3 = execute a SDCLCMH_S to reset the CHMS handler 
O3E6 40 ; 4 = declare 2 exit handlers in super mode 
Sees ef) 3 5 = delete 2 exit handlers in super mode 
03E6 548 ; OUTPUT PARAMETERS: 
O3E6 44; NONE 
O3E6 545 ;-- 
03E6 ats 
03E6 547 SUPER_MODE: 
50 8€ 00 Q3E6 548 MOVL (SP)+,RO 3 get CHM parameter off the stack 
0S 01 50 8F QO3E9 549 CASEB =RO,#1,#5 ; do the right thing 
O3—ED 550 10$: 
OO0A' O3ED 22) .WORD 4 -10$ 
tt O3SEF 26 » WORD 0$-10$ 
0037" O3F1 55 -WORD 40$-10$ 
0058" O3F3 554 -WORD 50$-10$ 
0083' bare 555 -WORD 60$-10$ 
O3F e238 20$: 
O3F7 8655 SDCLCMH_G W*DCL ; declare a dummy CHMS handler 
0400 558 FAIL =CHECK Re NORM ; check for success 
01 OD 400 SHL OSSScN NORMA 
0553°CF 01 FB $36 CALLS #1,W*REG_ CHECK 
OO8F 31 040 559 BRW 3 carry on 
040A 560 30S: 
0071'°CF FFD8 CF DE Q40A 561 MOVAL roe MODE, W*DCL+DCLCMHS ADDRES ; set up to delete dummy handler 
0411 286 SDOCLCMH_G W*DCL™ : Tlear the dummy handler 
th 56 FAIL, CHER ss$_ NORM ; check for success 
01 41A Oe SSeN ORMAL | 
OS53'CF 01 FB b4i¢ CALLS #1 urREG. CHECK 
0075 421 BRW 3; carry on 
0424 65 40$: 
O103'CF OO31'CF DE 0424 66 MOVAL W*DCLCMH He * NAME 3 set service name pointe 
408 56 SOCLCMH_S ePRVHN 61 : Feset the CHMS handler for DCL 
43C 68 FAIL ~CHECK RAK 3; check for success 
01 DD 043C Bisa #SS$_NORMAL 
O553°CF 2} FB 04 AILS A WFREG. CHECK 
ae $9 $08 BRB 0 3; carry on 
445 71 SDCLEXH_S W*SUPER1 ; declare #1 super mode exit handler 
450 72 FAIL_ CHECK SS$_NORMAL ; check for success 


{SoS NOE re Te 
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8 pe : ; Pus Hf ie NORMAL 
0081' 97° a Saree DE 04 73 MOVA is loner DESBLK ; set handler adr for #3 
4 5 74 SDCLEXH_G W*DCL : declare #3 super mode exit handler 
46 75 FAIL “CHECK SS$_NORMAL ; check for success 
1 DD 0467 SHL Fi gnn NORM 
0553'CF 1 FB 0469 GALLS #1, W*REG_ CHECK 
9 #11 $$ a6 BRB 3; carry on 
<36 77 60$: 
47 a SCANEXH_S a * ; delete #1 super mode exit handler 
478 7? FAIL_C CHECK $38 NORM : check for success 
asssce 8 BB SUR eM ere 
0089'CF OIA7'CF ODE tt; 580 MOVAL u-SUPERS. auricle DESBLK > set handler adr for #3 
04 3 1 SCANEXH_G W°CAN ; delete #3 super mode exit handler 
Beas 2 FAIL = CHECK SS$_NORM ; check for success 
01 OD 8e8 PUSHL OSSScN NORMA 
O5S3'cF O71 FB eo) 5 708 CALLS #1, W*REG_ CHECK 
02 Ben 3B aad REI ; go back to user mode 
FF49 31 Q49A 386 " BRW SUPER_MODE ; dummy handler address 
0490 5 -SBTTL USER MODE 
0490 588 ;++ 
0490 283 3; FUNCTIONAL DESCRIPTION: 
Be38 + ; Routine to handle the CHMU instruction 
0490 598 > CALLING SEQUENCE 
Be i ena 
0490 595 : INPUT PARAMETERS: 
8 ee 0 
Be ic 
0490 600 : OUTPUT PARAMETERS: 
049D 601 ; NONE 
49D obs 3 
op tare 
49D $08 USER_MODE : 
50 8E DO 049D 606 MOVL {sP)8 RO ; get CHM parameter off the stack 
05 50 D1 O4A 607 CMPL 0,S*#5 3 1s is correct? 
gp 13 04A 608 BEQL ' 3 : br if yes 
0 DD OQ4A 6 PUSHL R 3 save received 
05 OD OQ4A 610 PUSHL S$*#5 ; Save expected 
C14D'CF DF Q4A9 611 PUSHAL W*EXP ; save the string variable | 
0691'CF O03 FB i ol¢ 108 CALLS #3,W*PRINI_FAIL ; print the error message | 
oe ob: 64. CC > return 
| 
| 
| 
| 
j 


saSSis 


FC AO 


OE 

FC AQ 

014D'CF 

0691'°CF 03 

FFFF 8F FC8C ff 
E  FC83 CF 
OOOOFFFF 8F 
014D'CF 

v691'CF 03 
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= SATS SYSTEM SERVICE TESTS 
COMP _MODE 


FAAP AAAAAAAAAAASAOAAASAOAAO 


ee .SBTTL COMP_MODE 
t FUNCTIONAL DESCR PTION: 
Compatibil 
CALLING SEQUENCE: 
INPUT PARAMETERS: 

NONE 


OUTPUT PARAMETERS: 
NONE 


CPR Se Se Oe Oe Be Se Oe Oe Oe He ee 


+4 (RO) 

-4 (RO) 
#0 
WAEXP 
#3,W°PRINT_FAIL 
WTEST,#=1 

0$ 


W°TEST,-(SP) 
#°XOOOOF FFF 
W*EXP 


#3,W°PRINT_FAIL 
BRW RETURN 


10$: 


208: 


? 
(SUCE $(C.) 16*SEP=1986 00:56:19 AX/VMS Macro V06-0 p 
Berea aBe Boia iss HUET eS Beese yeesee nans1 Pee 


ty mode exception handler 


execute a compatibility mode exception 


see if we got the correct exception 
br if correct 

push received code 

push expected code 

push string variable 

print the error 


were we really in compatibility mode? 
br if yes 

push received code 

push expected code 

push string variable 

print the error 


carry on 


TB 
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mo 
DP D-DD A AAA AAA AAA AAA AAA AA AA AOA A ASA AOAOPAAASOSASSAS DE 


-SBTTL SETUP_SUPER ROUTINE 


} 

| 

+ 
FUNCTIONAL DESCRIPTION: 
Routine to declare an initial CHMS handler from user mode. | 


CALLING SEQUENCE: 
SCMKRNL_S W*SETUP_SUPER,ARGLST 


ARGLST = address of a pointer to a one parameter argument List conta 
the address of the entry mask of the CHMS handler 
; INPUT PARAMETERS: 
ARGLST 
IMPLICIT INPUTS 
NONE 


OUTPUT PARAMETERS: 
Declares a change mode handler for super mode which must be 
reset to DCL in the users handler routine when the handler is 
no longer needed. 
; IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 


ON ENTRY: 


PARA AAAA AA AAA AAAAAA AA AAA A AAA AAAPSAAAAISAPISAASAOSOSS UV< 
an 
ono 
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SETUP_SUPER ROUTI UETPSY.S REIS AT Wee se$.maRs1 3, 


rh} 696 RETURN_PC: | 
00000000 Q4€E 69 0 ; storage for user return PC 
4EA 38 HANDLER PC: 
00000000 tee 8D : “LONG 0 ; storage for handler PC 
4EE f 1 getup. SUPER: 
O00C O4E § «WORD “M<R2,R3> 
53 03 D 4F 7 MFOR #PRS _USP,R pet. t the user call frame address 
EE AF 10 A3 DO O4F3 704 MOVL  SFSL~SAVE Pc(R3) ,B*RETURN. et the user return PC 
ED AF 4 ac OD GF 705 MOVL 4(APY,H + 9g ER_PC :"save the handler address 
52. OC AD DO O4FD 7 : MOVL  SFSL gay FP(FP),R : get saved FP 
52. 00° is 29) 7 ADDL StaERESC. CHSTKS2. R ; back over change mode stack frame 
62 =12°AF c 4 708 MOVAB 8*20$,(R2) urn address 
OA F 508 709 INSV #c<PSLSC SUPER@PSLS$S _CURMODS#PSLSC _SUPER>,= 
16 OSOA 710 #PSL$V 
04 ae 04 0508 711 #PSL$S_ CURMODS2 4(R2) ; set current and previous mode to super 
5 1 pO OQ50E ne MOVL S*#SS$_NORMAL , rb ; set correct return code 
04 0511 71 RET 3; enter super mode 
a 714 20$: 
7E D4 051 715 CLRL (SP) ; set up quay PSL 
18°AF 6€ FA Q514 716 CALLG (SP),B*30$ 3 create initial call frame 
3218 717 30$: 
0000 051 718 «WORD “M<> ; entry mask 
00 OD OSIA 719 PUSHL #0 ; push a dummy parameter 
0549'CF O01 FB O51C 720 CALLS #1 ,W*REG SAVE ; save the registers 
0069'CF O12F°CF DE 0521 721 MOVAL W*SM,W*MODE set the mode 
0528 =7 ‘ SDCLCMH S @HANDLER PC, jW“PRVHND1 who; set reel hendler 
0538 7 FAIL_CHECKNP SS$_NORM, : chock for success 
DD 0538 PUSHL ass. 
OSEA'CF FB Been CALLS ®REG_CHECKNP 
0300000 8F DD 053F 724 PUSHL #<<PSLSC "USER aPSC$V_CURMOD>= 
0545 725 '<PSL$C OeRaesi $y "PRVMOD>>; set return to user 
9E AF DD beep 726 PUSHL RETURN_PC 3; set the return PC 
02 0548 727 REI 3; return to user mode 
0549 728 -SBTTL REG_SAVE 
0549 729 i+ 
0549 730 : FUNCTIONAL DESCRIPTION: : 
b2¢6 4 13 Subroutine to save R2-R11 in the register save location. 
549 7 5 ; CALLING SEQUENCE: 
549 734; PUSH ; save p_cunay parameter 
549 735; CALLS #1,W*REG_SAVE ; save R2=Ri 
0549 736; 
549 737 ; INPUT PARAMETERS: 
549 7 3 3 NONE 
549 739: 
549 740 ; OUTPUT PARAMETERS: 
549 741; NONE 
549 oe: 2 
549 743 ;-- 
549 744 
549 745 REG_SAVE: 
OFFC 549 oe ~WOR “M<R2,R3,R4,R5,R6,R7.R ee ~R10,R11> 
OOO8'CF 14 AD 28 ee 208 74 MOVC #4910, *X14¢ FP P);W*REG_S AREA” ; save the registers in the program 
4 055 748 RET | 
} 
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4 9 3 -SBTTL REG_CHECK 
? : ; FUNCTIONAL DESCRIPTION: 
5 755 ; Subroutine to test RO ' R2-R11 for proper content after a service | 
754 ; pxecut ion. A snapshot is taken by t EG_SAVE routine at the | 
755 ; beginning of each step and this routine is executed after the 
2 4 § : services have been executed. 
33 138 : CALLING SEQUENCE: 
759 ; PUSHL  #SS$_XXXXXX 3; push expected RO contents 
55 £68 ; CALLS #1,W*REG_CHECK ; execute this routine 
32 ree : INPUT PARAMETERS: 
22 pe 3 expected RO contents on the stack 
553 765 : OUTPUT PARAMETERS: 
22 106 : possible error messages printed using SPUTMSG 
a 
08e3 990 REG_CHECK: 
OFFC 055 771 WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R11> 
50 04 AC 01 0555 ak CMPL 4(AP) ,RO : is this the right fail code? 
OE 13 0559 77 BEQL 10$ ; br if yes 
50 oD QO55B 774 PUSHL R 3; push received data 
04 AC DD O55D 775 PUSHL 4(AP) 3 push expected data 
O14D'CF DF 0560 £76 PUSHAL W*EXP 3; push the string variable 
0691'CF O03 FB B2e¢ aks 108 CALLS #3,W*PRINT_FAIL 3; print the error message 
0008'CF 14 AD ; 29 0569 9 cMPcs #4s10,°X14(FP) ,W*REG_SAVE_AREA : check all but RO 
é r eRe 
56 «53 stan’ wal +4 c3 beo6 44 ice #REG_SAVE_AREA,R3,R6 ; calculate the register number 
7E 2° 8 81 0570 38 ADDB #°X2,R6,-(SP) 3 set number past RO-R1 and save 
2% b3 p Bee) ree bi : Rt ; backup to register boundrys 
61 dD 0367 reg PUSHL (R41) ; push received data 
63 OD 0589 787 PUSHL (R3) 3 push expected data 
OO8D'CF OF Bene re PUSHAL W*REG 3; set string pntr param. 
0691'CF 04 FB O5S8F 789 CALLS #4,W*PRINT_FAIL ; print the error message 
0594 790 20$: 
04 0594 791 RET 
| 
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v04- REG_CHECKNP et PETES LOE T PSY sae dSAYSSSes MAR: 1 (2) | v0: 
95793 LSBTTL REG_CHECKNP | 
9 738 ; FUNCTIONAL DESCRIPTION: 
9 § ; aureus i fo test Rg & R2-R11 for proper content after a service 
59 797 ; execution without printing it. A enage ot is taken by the REG_SAVE routine a 
59 £38 3 beginning of each step and this rout ng is executed after the 
59 799 ; services have been executed. This routine collects the error 
232 3 information in buffer ERLB instead of printing it. 
595 § 3; CALLING SEQUENCE: 
595 : PUSHL = #SS$_AXXXXXX 3 push expected RO contents 
232 Be § CALLS #1,W*REG_CHECK ; execute this routine 
595 86 ; INPUT PARAMETERS: 
8232 f : expected RO contents on the stack 
8232 309 ; OUTPUT PARAMETERS: 
595 10 ; possible error messages logged in buffer ERLB which are printed 
0595 11; using routine ERLBUF_DUMP, 
0595 \¢ : 
0595 813 ;-- 
ee 
00 0595 16 -BYTE 0 ; error flags are BITO = 0 means no errors in the bu 
B2oe HEA — 3 BITO = 1 means errors in the buffe 
L 
0000059a' 8208 HE ome ADDRESS ERLB ; error log buffer pointer 
OOO005EA ths 1 -BLKB 80 : error log buffer 
O5EA 5 REG_CHECKNP: 
50 O04 AC D1 O5EC 5 CMPL (AP) ,RO ; is this the right fail code 
68 13 bees § BEQL 10$ ; br if yes 
OF AF 1 88 O5F BISB2 #1,FLAG ; set the error logged flag bit 
52 99D AF DO OS5SF6 828 MOVL ELGP R2 3; get the current error log pointer 
82 03 90 OSFA 829 MOVB # «(Rad 3 Save the long word count 
82 50 4 SFD 0 MOVL RO, (R2)+ 3 save received status 
82 04 AC OD 600 1 MOVL Seub* teste 3 Save expected status 
82 O14D'CF DE 0604 3 MOVAL ae )+ 3 save the string variable 
D4 0609 3 CLRL (R2) 3 set the terminator 
B87 AF 5 DO 0608 $0 OVL R2,ELBP 3 reset the buffer pointer 
OO4C°CF OO2A'CF OD 60F 5 MOVAL w*TEST_MOD FAIL,W*TMD_ADDR ; set failure message address 
0044'CF O03 O00 O02 F ei6 33 vee INSV #ERROR, #0,83,W°MOD_MSG_CODE ; set severity code 
0008 ' CF 14 AD 98 3 610 HS coer 055 10. ETSCPPD A EC 0AVE AREA 3; check all but RO and R1 
FFOA CF QO1 8 626 40 BISB2 «#1 ELAS 3; set error logged flag bit 
52 FF67 CF OD 6 41 OVL ELBP.R 3; get current error log buf pointer 
3 4 7 6 6 Ove S“°#4,(R2)+ ; set longword count 
00000008'8F C3 06 4 SUBL3. #REG_SAVE_AREA,- 
6 3 639 44 R3,R ; cale reg number 
6 4 C6 0638 45 DIVL S*#4,R ; make it a longword count 
82 6 : C1 06 £6 ADOL $“#2,R6,(R2)+  ; correct for RO-R1 and save 
6 00 64 4 MOVL (RID, (RE) + > save received results 
63 OD 64 +8 MOVL (R3),(R2)+ 3; save expected results 
82 BD'CF DE 0648 84 MOVAL wW*REG, (R2)+ : save string variable 
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$042000 CHE CKNP Tey 90:34:38 LUETPSY. SAC ISATSSSe «MAR; | . (2) 
g D4 0640 29 CLRL (R2) ; set the terminator 
FF42 CF dO F | MOVL R2,ELBP ; reset the buffer pointer 
opac' st Sean DF 4 26 MOVAL ur fest _moo FAIL,W*TMD_ADDR ; set failure message address 
0044'CF 3 i 669 z 208 INSV #ERROR,# ,¥3,W*MOD_MSG_CODE 3 set severity code 
66 22 ; ; bail out 
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9042006 ERLBUF _DUMP 878 198 89: 3 38 LOETPSY Y.S$ Bae Seay Ssses mans 1 ° , 
5 34 = -SBTTL ERLBUF_DUMP 
: : FUNCT IBA, DESCRIPTION: 
6 0; Routine to check for errors in the error log buffer and 
66 13 report any that are there. 
és 4 ; CALLING SEQUENCE: 
re 8 ; CALLS #0,W*ERLBUF _DUMP 
$e 08 3; INPUT PARAMETERS: 
66 67 ; FLAG bit 0 = 0 for no errors in 
oe of : FLAG bit 0 = 1 for errors lo age 
oe $ 3 if errors logged then buffer ERLB must contain legal format errors 
oes 71 ; OUTPUT PARAMETERS: 
66 if 3 NONE 
066 73; 
066 74 j-- 
066 75 
066 76 ERLBUF_DUMP: 
001C 066 77 -WORD “M<R2,R3,R4> 
1B FF2C CF 60ED «60665 = 878 BLBC  —- FLAG, 808" ; br if no errors to report 
52 FF2C CF DE 066A 879 MOVAL ERLB.R 2 3; set up buffer pointer 
O66F 80 10$: 
$¢ d5 Bose 3} TSTL (R2) 3 any more errors? 
1 13° 0671 § BEQL 30$ 3; br if not 
53 8¢ 9A 0673 88 MOVZBL (R2)+,R3 ; get the Longword count 
54. COS DO 0676 884 MOVL R3,R4 3 and save it 
0679 85 208: 
8 DD 0679 86 PUSHL (R2)+ : push a parameter 
FB 5 F5 0678 87 SOBGTR R3,20$ 3 and pus them all 
0691'CF 54 FB pert 888 CALLS R4,W*PRINT_FAIL ; print the failure 
EA 11 peee + 30s BRB 10$ ; do the next one 
FFOA CF FFI11 CF ODE O65 91 MOVAL ERLB,ELBP 3; reset the buffer pointer 
FFOA CF D4 068C 6 CLAL W*ERLB ; set ereen terminater 
04 0690 89 RET ; bail o 
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7 154: AX/VMS Macro bs tes (2) 
bd P-19 4 : 4: 9 4 «MAR; 1 
= SATS. SYSTEM SERVICE TESTS (SuCE S.C.) BS Ep= 1 98¢ 0:34:39 UETPSY. SRCJSATSSS | 
SA1S5585 PRINT_FAIL 
v04= “ions LSBTTL  PRINT_FAIL 
96 ;++ , 
E : feat cyy we Re me te resort failures using SPUTMSG | 
691 899 ; ENCE: PUSHL REG_ NUMBER 
$9] 4 ? : na an atte Sere eves Mode 2 PUSHL EXPECTED 
691 : TRING VAR TRING VAR 
31 3 § : CALLS #3.U*PRINT FAIL CALLS ba ,W*PRINT FALL 
691 905 ; RAMETERS : 
$3! 4 § : — tYeeed above 
691 908 ; , 
Sit) $e | OUTPUT CHmUreTERS: 1s ertoted vning SUT 
Sd 
691 913° 
691 = 916 PRINT FAIL: AMCR2,R3.R4R5> ,W*SERV_NAME ,W*CURRENT_TC 
003¢ 0691 915 ifaoes. wntet W*MESSAGEL .W MSGL.ATEST_MOD_NARE the massage 7 
bees 817 SPUTRSG_S W°ASGVEC g is this 8 register message! 
“CAP . ° br es 
91 06C5 918 ite : AP) (APS 12 (AP) 
: " deca 320 SFAO_S yRES2.W*MESSAGEL ree ates output message 
GE9 = 9g) a . AP) 4 (AP), 16(AP) , 12(AP) 
wt eee 35g 108: SFAO_S W*CS3,W*MESSAGEL ,W*MSGL,4(AP) ,16(AP) ,8( 
af $35 6.5 uenscvec t Toant, foe petaege 
TMSG_S W* : iden 
a 4 8 ALLS seer phe Pan W°TMD ADDR ; set fai ure ascents address 
Lal Ss BR a 14 My SERRGUTO BS Gthne MSG_CODE ; set severity 
4" 002A 65 OF 72D 9 3 INSV #eE 0A RO, - 
0044'CF 03 00 4 0736 3 0 Betis RET 
? ; 
0000 , 3 § eae MOVAL GUN W*MODE ; set the mode string 
OO69'CF —O12S"CF DE OF87 98h BRB CEP | 
oh See sure 
0000 rf $38 we “oro Bae W*MODE ; set the mode string 
MOV , 
O069"cF O1ZF'CE DE O74 $40 eae CEP 
748 : 
942 EXECHS: i | 
0000 Dt: 3u8 Pr Coen. uonone ; set the mode string EMRE are 
peter ose edt + Eee: ge SENOS. Y°CEAcUURESSAGEL .U“RSGL MODE TEST MOD NAME : forme | 
ae + PUTASG_S WAMSGVEC 2 wa one failure message address 
758 $7 ROUAL “W*TEST_M OFA gWOTMD ADDR: set severity code 
Qpsc'cr —go2a"ce DE O784 948 INSV  MERROR7#0,#3,W°MOD_MSG_ 
0044'CF 03 02 be 0798 880 RET 
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«SBTTL MODE_iD 


++ 
4 i FUNCTIONAL $b the : 
: Subroutine to identify the mode that an exit handler is in. 


+ CALLING SEQUENCE 
CALLS ,W*MODE_ID 


INPUT PARAMETERS: 


MODE contains an address pointing to an ascii string desc. 
of the current CPU mode. 


OUTPUT PARAMETERS: 
NONE 


: 
i. 
; 


LQVQ_Vo_o¥_ww_wvla a 
DOOOOOOOOOOOOOOOOOOO 


»WORD “M<R2,R3,R4,R 
$FAO_S wCS UARESSAGEL, W"“MSGL, MODE ; format the error message 
SPUTRSc = w*MSGVEC 3 ertat the mode message 


003C 07 
7? 


7AE 
04 078F 


rise 7 & 
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MOD_MSG_PRINT: 


(RAAB RARARASAALARLARLAAASALELE LEE AR RRR R EAE E ALES EERE ARR RRR RARER SEES 


o * 
* PRINTS THE TEST MODULE BEGUN/SUCCESSFUL/FAILED MESSAGES * 
* (USING THE PUTMSG MACRO). * 

* 


(RA RRBRARARASARLARARARALALA ARREARS RARRERAR RRR RRR RRR RRR RARE RAR ASAE SE SAS 


PUTMSG <MOD_MSG_CODE,#2,TMN_ADDR,TMD_ADDR> ; PRINT MSG 
RSB tees AND RETURN TO CALLER 


WP "OOD NO UE Ws - OOOnOu 


05 
CHMRTN: 
4 3 (PRRRRRAASARRRAASLALAREARARARARERERR RRR RRR REAR RARER RRR RRR RARER RRR AES GS | 
990 ; * CHANGE MODE ROUTINE. THIS ROUTINE GETS CONTROL WHENEVER * 
991; * A CMKRNL, CMEXEC, OR CMSUP SYSTEM SERVICE IS ISSUED . 
992; * BY THE MODE MACRO ('TO' OPTION). IT MEREL . 
993; * A JUMP INDIRECT ON A FIELD SET UP BY MODE. | ® 
994 : « THE EFFECT OF RETURNING TO THE END OF THE MODE . 
995 ; MACRO EXPANSION. : 
i 
99 : PRRRRRAARAAARARRARRAREARRRRERERRR ERE ERE RRR RRR RRR ERR RRR RRR RRR ARS SS 


0099 «WORD 0 ; ENTR 
QU0000S9'FF 1 


= 
SOON ee 


MMMM OVOVIIV VV VV GV VI IFVAANOMNOANNAOONO 
FEE EMAAOHOOOAOOOOAOOOODOOOOOOOOCOO 


OoCoooooo°ocoo 


- END SATSSS43 


999 Y MASK 

1999 JMP @CHM_CONT : RETURN TO MODE MACRO IN NEW MODE 
1003 : RET INSTR WILL BE ISSUED IN EXPANSION OF ‘MODE FROM, ...." MACRO 
1004 ° 


SA) 


xo OOOO?) COOCOOCCOCOCCOooo 


x< x 
n> oO vuou"o 
zu eaecec @eaeaancaancacacaca @Qe @ ewaocaeacaraccacacacec @ecaca | 


>w 
SOOOCOOOOOCOOCOOOOCOOCOOSOOOOSOSOSOSOOOOOOOOOOOOOOOOOOOOOOOoOOoOSo 
SOOOQOCOGOOGOOOSCOSOOSOOCOSOC COSCO SOSSOOSOSOOOOOOOSOOSOOOOOOOOOOOoOoOoOOo 
SoH OOOOOOGODVDOOCOOCOOOOOOSS OQOSOSSSOSSOSOOSOOOCOOSCOSOOOOOOSOSOSOOSOOoOoOO 
wT 


gekereeee 
geraeeenee 
geeeeeee 
geeeeree 


SOOOOOOODOOCOGOOCOOOOOOOSOOSCOSOOSOOSOSOSOCSCOOCOCSCOSOSOCOOOCOOCOOOOoO 


| 
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= SATS SYSTEM SERVICE TESTS (SUCC S.C.) " 
NHIB_MSG 


NORMAL 
I 
$ 
SUPER _MODE 


8 
SYSSCMEXEC 
SYSSCMKRNL 
SYSSOCLCMH 


n” 
> oenwnm mu 
wv 


SERV 
SETU 
SEVER 
SFSL 
SFSL 
SHR$ 
SHRS 


lll ll Sd FTO TOUCIOICUCUMIMIcy ™N  & 6) > & Oe 4d & 6) > & & Oe o44> 44> 444 4A! 
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> 4 ee 

eecae eaeeeeeeeoroowwe « |e@eeece eeaoacaeacee | eee 
pa my pen Sy ett te + ae 6 oA Swe Oe te +t OOD Oe > ODOM + OSOMTOM & ure 
coo ROSOOSCO- COSDOCOCOCOCOOTNA-NOO & HK RLR—KNIMO # CORCRO--- OO 
SSOSCCCOOOOCOCOOOCOOOOOOCOOOOOOOOOOOOOSO # OO 

COOCOCOCOSOOOOOOOOOOOOOOS # OOO 

SOOCCOCOOCOCOCOCOSCOCOOCOOOOCOOOSOOSOOSOSOOOOOSS # SOOOSSOOSS # SOSSSSSSSS9 
SSSSSSSSSSSSSSSSSESSSESS > SSSSSSSSS 5 SSSSSS 


So 
Oo 
oS 
oO 


ADDRES 
NARGS 
PRVHND 
TYPE 
CODE 
PRINT 


oa 

jn 
@vo 
Yc 
wt 
oz 


TC 
FAIL 


$ 


DCLCMHS 
DCLCMH 
DCLCMHS 
DCLCMHS 
SG 


MSG 


MODE ID 
ROD” 
msc 
PR$_USP 
PRIRT 


LIBSSIGNAL 
ME SSAGEL 


MODE 


HANDLER _PC 


SATSSS43 
Symbol table 
CURRENT 
HNOLR_C 

INFO 


CANE XHS 
CANE XH$ 
DCL 
DCL1 


CS4 
CSS 
DCLCMH 
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Symbol table oS] obe 88:84:29 LOETPSY  SREDSATSSSc9.MAR 1 “ 


SYSSDCLEXH eeteteene 6X 
SYSSEXIT 


4 
SSE keeeeeee GX 4 
SYSSFAO eeeeeeee =X 4 
SYSSHIBER eeeereee GX 4 
SYSSPUTMSG eeteeeee GX 4 
SYSSSETPRN tereeene GX 4 
SYSSWAKE ereeeree GX 4 
TEST 00000156 R 4 
TEST_MOD_BEGIN 00019 R 
TEST_MOD_FAIL sa 
TEST_MOD_NAME 8 R 
TEST_MOD_NAME_D 9 R 
TEST_MOD_SUCC FR 
TMD_ADOR 4 ‘f R 0 
TMN_ADDR 00000048 R 8 
TPI 4854 00 R 3 
UETP$_SATSMS = 007480 
UETPS_TEXT = 007411 
UM 4444 9 & 0 
USER} 00000143 R 0 
USER 4444 SE R 03 
USER 4 168 R 03 
USERS Q000017F R 03 
USERH1 00000735 R 04 
USERH ee E R 04 
USERH 00000735 R 04 
USERH4 0000034C R 04 
USER_MODE 0000049D R 04 
WARNING = 00000000 
weeer ene eee ce sees + 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. ie 00000000 < 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS sisi 84 ( 0.) 4 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
RODATA 000001 ; ( 347.) ¢ ( ¢*} NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
RWDATA OQOOOOIE ( 483.) O35 ¢ -) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
SATSSS43 OOOOO7E4 ( 2020.) 04 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
bomen toc enw mene re nace eee + 
; Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 7 :00:00.07 :00:00.3 
Command processing 135 5: 00:66 8: 702.6 
poen cant ; ae : ate Y :00:25.1 
able sor ° :00:02. 
Pass 2 20 :00:03.72 $8 
Symbol table output 1 :00:00.14 34 
Psect synopsis output :00:00. -03 
Cross-reference output 3: :00. . 
Assembler run totals 80 ‘ 1 


ihe syertine set Limit was 1090 pages. 
ay bytes (174 pages) of virtual memory were used to buffer the intermediate 45°". 
There were 60 pages of symbol table peace at ogeetes to hold 1170 non-local he local symbols. 
source Lines were read in Pass 1, produci "95 . 


object records in Pass 
52 pages of virtual memory were used to define 


macros. 


Pwmmweecccnceccccenecccccon} 


! {Macro library statistics ! 


Macro Library name Macros defined 
“$255$DUA 8: SHRLIBJUETP. “Ty 1 10 
~$255$0UA28: (SYS .OBJILIB.MLB; 1 
“$5 8c SDUADB: SYS IBISTARLET. ALB; 2 3 

TOTALS (all Libraries) 4 


1367 GETS were required to define 44 macros. 
There were no errors, warnings or information messages. 
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vAKSH Macro Run Statistics » “SEP- 1984 8:34:39 LOETPSY. SREDSAYSSS2 9. MAR; 1 . 3) vo 
MACRO/LIS=LIS$:SATSSS43/0BJ=0BJ$:SATSSS43 MSRC$:SATSSS43/UPDATE=(ENHS$: SATSSS43) +EXECML$/LIB+SHRLIB$:UETP/LIB 
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